dose <- c(20, 30, 40 ,45, 60)
drugA <- c(16, 20, 27, 40, 60)
drugB <- c(15, 18, 25, 31, 40)

# 创建一幅描述药物A的剂量和响应关系的图形
pdf("./build/drugA.pdf")
  #横轴为dose
  #纵轴为drugA
  #type="b"表示同时绘制点和线
  plot(dose, drugA, type="b")
dev.off()


pdf("./build/drugA_dotdash.pdf")
  par(lty=4, pch=17)
  plot(dose, drugA, type="b")
dev.off()


pdf("./build/drugA_plot_params.pdf")
  plot(dose, drugA, type="b", lty=4, pch=17)
dev.off()


opar <- par(no.readonly=TRUE)
par(pin=c(2, 3))
par(lwd=2, cex=1.5)
par(cex.axis=.75, font.axis=3)
pdf("./build/drugA_size_font.pdf")
  plot(dose, drugA, type="b", pch=19, lty=2, col="red")
dev.off()
pdf("./build/drugB_size_font.pdf")
  plot(dose, drugB, type="b", pch=23, lty=6, col="blue", bg="green")
dev.off()
par(opar)


# 坐标轴、图例
